#include <CtrlLib/CtrlLib.h>

using namespace Upp;

#include "Dialogs.h"

ConfigurarFormularioSolicitud::ConfigurarFormularioSolicitud(String dni_)
{
	EditorFormularioSolicitud editor_formulario;
	SqlId ALL("*");
	if (! (SQL * Select(ALL).From(SOLICITUD).Where(DNI == dni_))) {
		Exclamation(SQL.GetLastError());
		return;
	}
	//------------------------------------------------------------------------------------------
	String qtf;
	qtf << "[+117R*= Centro de Jubilados y Pensionados Municipales de la Ciudad de Rio Cuarto \"Sagrada Familia\"";
	qtf << "&&[+92A*= - Personería Jurídica N° 073 \"A\" - 06 -]";
	qtf << "&[+92*= `-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-";
	qtf << "`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-";
	qtf << "`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-";
	qtf << "&[3A> RIO CUARTO ";
	Date fecha = GetSysDate();
	qtf << AsString((int)fecha.day) << " de ";
	switch ((int)fecha.month) {
		case 1:
			qtf << "Enero ";
		break;
		case 2:
			qtf << "Febrero ";
		break;
		case 3:
			qtf << "Marzo ";
		break;
		case 4:
			qtf << "Abril ";
		break;
		case 5:
			qtf << "Mayo ";
		break;
		case 6:
			qtf << "Junio ";
		break;
		case 7:
			qtf << "Julio ";
		break;
		case 8:
			qtf << "Agosto ";
		break;
		case 9:
			qtf << "Septiembre ";
		break;
		case 10:
			qtf << "Octubre ";
		break;
		case 11:
			qtf << "Noviembre ";
		break;
		case 12:
			qtf << "Diciembre ";
		break;
	}
	qtf << "de " << AsString(fecha.year);
	qtf << "&[< Al Señor&[< PRESIDENTE&[<_ PRESENTE";
	//------------------------------------------------------------------------------------------

	while (SQL.Fetch()) {
		qtf << "&&[#3_ -|-|-|El/la que suscribe [* " << AsString(SQL[APELLIDOS]) << "], ";
		
		qtf << "[* ";
		qtf << AsString(SQL[TIPO_DOC]);
		qtf << " N° " << AsString(SQL[DNI]) << "] ";
		
		qtf << "con domicilio en [* " << AsString(SQL[CALLE]) << "] Número [* " << SQL[NRO_CALLE] << "] Piso [* ";
		qtf << AsString(SQL[PISO]) << "] Departamento [* " << AsString(SQL[DPTO]) << "] Barrio [* ";
		qtf << AsString(SQL[BARRIO]) << "] ";
		qtf << "de la ciudad de [* " << AsString(SQL[CIUDAD]) << "], ";
		qtf << "tiene el agrado de dirigirse al Señor Presidente y a los demás miembros de Comisión Directiva, a los fines ";
		qtf << "de solicitarle quiera tener a bien considerar mi solicitud de ingreso como SOCIO/A: [* ";
		
		int tsocio = SQL[TIPO_SOCIO];
		tsocio == 0 ? qtf << "ADHERENTE" : qtf << "ACTIVO";
		qtf << "] ";
		
		qtf << "del Centro de Jubilados y Pensionados Municipales de la Ciudad de Río Cuarto (Córdoba), aceptando las ";
		qtf << "disposiciones estatutarias vigentes y resoluciones emergentes de la misma, como así también por la presente ";
		qtf << "autorizo a descontar de mis haberes mensuales los valores que correspondan a la cuota social.";
		qtf << "&-|-|-|-|Saludo a Ud. con la mayor consideración.";
		
		qtf << "&&Beneficiaro Caja de Jubilaciones N° [* "<< AsString(SQL[NRO_SOCIO]) <<"] Ley [* " << SQL[LEY] << "] - [* ";
		int tbeneficio_ = SQL[BENEFICIO];
		tbeneficio_ == 0 ? qtf << "PENSIONADO" : qtf << "JUBILADO";
		qtf << "] ";
		qtf << "Fecha de Nacimiento [* ";
		Date fecha_nac_ = SQL[FECHA_NAC];
		qtf << AsString((int)fecha_nac_.day) << "/" << AsString((int)fecha_nac_.month) << "/" << AsString(fecha_nac_.year) << "] ";
		qtf << "E-Mail [* ";
		SQL[MAIL].IsNull() ? qtf << "`-`-`-" : qtf << AsString(SQL[MAIL]);
		qtf << "]&Teléfonos [* " << AsString(SQL[TEL]) << "] ";
		
		if (! SQL[TEL_ALT].IsNull())
			qtf << "- [* " << SQL[TEL_ALT] << "] ";
		
		qtf << "&Última Repartición en la que prestó el servicio [* " << AsString(SQL[REPARTICION]) <<"] ";
		qtf << "&Cargo [* " << AsString(SQL[CARGO]) << "] ";
		qtf << "Categoría [* " << AsString(SQL[CATEGORIA]) << "] ";
		qtf << "Ultimo haber [* `$ " << AsString(SQL[HABER]) << "] ";
	}
	qtf << "&&[> .........................";
	qtf << "&[> Firma      ]";
	qtf << "&&[< PARA COMISION DIRECTIVA:&&[ La presente solicitud ha sido APROBADA - RECHAZADA, en reunión de fecha:";
	qtf << " ............., con constancia en Acta N°.....&[ Notifíquese, dése al Registro de socios y archívese.";
	qtf << "&&[ ........................-|-|-|-|-|-|-|-|-|........................";
	qtf << "&[    Secretario-|-|-|-|-|-|-|-|-|-|     Presidente";
	qtf << "&[+92= `-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-";
	qtf << "`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-";
	qtf << "`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-`-";
	qtf << "&[<_ REGISTRO DE SOCIOS&&[_ Con fecha ............. fue registrado como Socio/a N°..........";
	qtf << " el/la Sr./a ........................................... Documento N° ................, correspondido ";
	qtf << "abonar su primera cuota a partir del mes de ............... de 20....";
	qtf << "&&[ SOCIO N° ........... Folio N° ...........";
	qtf << "&[> RESPONSABLE REGISTRO&[< NOTIFICADO ...................... FECHA ..../......./20....";
	qtf << "&&[1_= `- Hipólito Irigoyrn N°585 `- Tel. 0358 `- 4644127 `- E.Mail: ctrojubi.municipales`@yahoo.com.ar `-]";
	qtf << "]]]]]]]]]]]]]]]]";
	
	editor_formulario.editor.SetQTF(qtf);
	editor_formulario.Execute();
}